www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelComponentLabel\conn_m.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <% 'On Error Resume Next 'Dim ConnStr ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dir_set&nd_mdcach_mdb) Set conn2 = Server.CreateObject("ADODB.Connection") conn2.open ConnStr If Err Then Err.Clear Set conn2 = Nothing Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。" Response.End End If Sub OpenConn2() 'On Error Resume Next 'Dim ConnStr ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dir_set&nd_mdcach_mdb) Set conn2 = Server.CreateObject("ADODB.Connection") conn2.open ConnStr If Err Then Err.Clear Set conn2 = Nothing Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。" Response.End End If J_True = "True" J_False = "False" J_Now = "Now()" '获得现在的时间 End Sub Sub CloseConn2() On Error Resume Next If IsObject(conn2) Then conn2.Close Set conn2 = Nothing End If End Sub %>